﻿Imports DAO

Public Class VaiTroBUS

    Shared Function layMaVaiTroTiepTheo() As String
        Dim maNhom As String = VaiTroDAO.layMaVaiTroTiepTheo()
        Dim maTang As Integer = maNhom.Substring(1, maNhom.Length - 1)
        Return "N" + (maTang + 1).ToString.PadLeft(5, "0")
    End Function

End Class
